﻿
Public Class u_ExportExcel

    Private Sub btnXuat_Click(sender As Object, e As EventArgs) Handles btnXuat.Click
        MessageBox.Show("Bạn phải tạo ra file .xls có cấu như trên hình, trước khi xuất nếu không quá trình xuất sẽ bị lỗi")
        Dim SaveFileDialog1 As SaveFileDialog = New SaveFileDialog()
        SaveFileDialog1.Filter = "Export (*.xls)|*.xls"
        SaveFileDialog1.ShowDialog()
        Dim File_name As String = SaveFileDialog1.FileName
        ExcelProvider.file_name = File_name
        'Try

        '    For i As Integer = 0 To dtNha.Rows.Count - 1
        '        Dim sql As String
        '        sql = String.Format("INSERT INTO [Sheet1$] (MaNha,MoTa,MaLoaiNha,DienTich,Gia,CanOGhep,NguoiLienHe,DiaChi,SoDienThoai,Email,NgayTiepNhan,MaTinhTrang,MaCongTy,NguoiDangTin) values ('{0}', '{1}','{2}','{3}', '{4}','{5}','{6}', '{7}','{8}','{9}', '{10}','{11}','{12}', '{13}')", dtNha.Rows(i)(0), dtNha.Rows(i)(1), dtNha.Rows(i)(2), dtNha.Rows(i)(3), dtNha.Rows(i)(4), dtNha.Rows(i)(5), dtNha.Rows(i)(6), dtNha.Rows(i)(7), dtNha.Rows(i)(8), dtNha.Rows(i)(9), dtNha.Rows(i)(10), dtNha.Rows(i)(11), dtNha.Rows(i)(12), dtNha.Rows(i)(13))
        '        ExcelProviderDAO.NonQuery(sql)
        '    Next
        '    MessageBox.Show("Xuất dữ liệu thành công")
        'Catch ex As Exception
        '    MessageBox.Show("Xuất dữ liệu bị lỗi, bạn vui lòng kiểm tra lại cấu trúc file .xls")
        'End Try
    End Sub
End Class
